;Exam2009H21Prg1 VtgɂRQrbgZ
;搔RQrbgA搔͂PUrbg @
;----------------
MAIN START
    LAD GR1,VALUP ;搔̏ʌ̃AhX
    LD GR2,MLT    ;搔
    LAD GR3,SEKI  ; vZʂ̏ʌ̃AhX
    CALL MULS
    RET
VALUP DC #0079 ;搔̏ʌ
VALDWN DC #8A03 ;搔̏ʌ
MLT DC #0002    ;搔
SEKI DS 2       ;
    END
;------------------
MULS START
    RPUSH
    LAD GR6,0    ;ρ@ʌ̏
    LAD GR7,0    ;ρ@ʌ̏
    LD GR4,0,GR1 ;搔@ʌ̎o
    LD GR5,1,GR1 ;搔@ʌ̎o
LP SRL GR2,1      ;搔PrbgEɃVtg
    JOV ADD32    ;@E
    JZE FIN
    JUMP NEXT      ;ZXLbv
ADD32 ADDL GR6,GR4 ;32bit + 32bit --> 32bit
    ADDL GR7,GR5   ;
    JOV ADJ1      ;@E
    JUMP NEXT
ADJ1 ADDL GR6,=1 ;グ
NEXT SLL GR4,1   ;搔iRQrbgjʌPrbgɃVtg
    ;̃VtgōŉʌK[ƂȂB
    SLL GR5,1   ;搔ʌPrbgɃVtg@@G

    JOV ADJ2
    JUMP LP
ADJ2 OR GR4,=1    ;ŉʌPɂ
;ADJ2 ADDL GR4,=1 ; ł͂łB
    JUMP LP
FIN ST GR6,0,GR3  ;Zʂ̊i[
    ST GR7,1,GR3
    RPOP
    RET
    END
;-------------------
